SPACE 2/SPACE - Library 2 - Volume 1.iso/demos/31/rprti.dbm

Text File | 1986-07-17 | 2.4 KB | 65 lines

CLEAR GET
ERASE
DO CASE
  CASE USERSTAT()=0
    * GET THE PAGE TITLE
    @ 0,35 SAY "Page Definition"
    @ 2,0 SAY "Heading  : " GET Y.V_L
    @ 3,0 SAY "Heading2 : " GET Y.V_M
    @ 4,0 SAY "Footer   : " GET Y.V_N
    @ 6,0 SAY "Title 1  : " GET Y.V_A
    @ 7,0 SAY "Title 2  : " GET Y.V_B
    @ 8,0 SAY "Title 3  : " GET Y.V_C
    @ 9,0 SAY "Title 4  : " GET Y.V_D
    @ 11,0 SAY "Page width (# chars):"
    @ 11,35 GET Y.V_E PICTURE "###"
    @ 12,0 SAY "Left margin (# chars):"
    @ 12,35 GET Y.V_F PICTURE "###"
    @ 13,0 SAY "Top margin (# lines):"
    @ 13,35 GET Y.V_J PICTURE "###"
    @ 14,0 SAY "Bottom margin (# lines):"
    @ 14,35 GET Y.V_K PICTURE "###"
    @ 15,0 SAY "# lines per page:"
    @ 15,35 GET Y.V_G PICTURE "###"
    @ 16,0 SAY "Column spacing:"
    @ 16,36 GET Y.V_H PICTURE "##"
    @ 17,0 SAY "Double space report? (Y/N):"
    @ 17,37 GET Y.V_I
    @ 19,0 SAY "PgDn=Next page, ^S=Save, ^Q=Quit"
    @ 21,0 SAY "Enter string expression for Heading,Heading2,Footer,Title 1,2,3,4"
    @ 22,0 SAY "You can use any valid string operator or function. No macro '&'"
    READ
    RETURN

  CASE USERSTAT()=1
    * GET GROUP INFORMATION
    @ 2,0 SAY "Group on: " GET Y.V_A
    @ 6,0 SAY "Summary report only? (Y/N): " GET Y.V_B
    @ 6,35 SAY "Eject after each group? (Y/N): " GET Y.V_C
    @ 8,0 SAY "Group heading: " GET Y.V_D
    @ 12,0 SAY "Group footer:  " GET Y.V_E
    @ 14,0 SAY "Total heading: " GET Y.V_F
    @ 16,0 SAY "PgUp=Prev page,  PgDn=Next page, ^S=Save, ^Q=Quit"
    @ 18,0 SAY "Enter string expression for Group heading,footer,and Total heading"
    @ 19,0 SAY "You can use any valid string operator or function. No macro '&'"
    READ
    RETURN

  CASE USERSTAT() >= 2
    * GET FIELD INFORMATION
    @ 0,0 SAY "Field: " + STR(USERSTAT()-1,2,0)
    @ 2,0 SAY "Field contents: " GET Y.V_A
    @ 5,0 SAY "Width: " GET Y.V_B PICTURE "###"
    @ 5,25 SAY "# decimal places: " GET Y.V_C PICTURE "##"
    @ 5,55 SAY "Total? (Y/N): " GET Y.V_D
    @ 7,0 SAY "Field header 1: " GET Y.V_E
    @ 8,0 SAY "Field header 2: " GET Y.V_F
    @ 9,0 SAY "Field header 3: " GET Y.V_G
    @ 10,0 SAY "Field header 4: " GET Y.V_H
    @ 16,0 SAY "PgUp=Prev page,  PgDn=Next page, ^I=Insert, ^D= Delete ^S=Save, ^Q=Quit"
    @ 18,0 SAY "Enter string expression for Field contents,header 1,2,3,4"
    @ 19,0 SAY "You can use any valid string operator or function. No macro '&'"
    READ
    RETURN
ENDCASE